home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
bbbbs85.lha
/
rexx
/
ShowLog.baud
< prev
next >
Wrap
Text File
|
1994-09-16
|
394b
|
22 lines
/* ShowLog.baud */
OPTIONS RESULTS
dcd
IF RC>0 THEN RETURN
yearmonthday=""
PARSE ARG yearmonthday .
IF LENGTH(yearmonthday)~=8 THEN yearmonthday=DATE('S')
bbspath=GETCLIP('BBS_path')
filename=bbspath'Logs/log.'yearmonthday
Send 'ATH1\r'
IF EXISTS(filename) THEN
ADDRESS COMMAND 'type' filename
ELSE SAY 'Can''t find log file for' DATE(,yearmonthday,'S')
Send 'ATH\r'
/* ShowLog.baud */